home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-1.dxr / 00029.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  2.2 KB  |  96 lines
  1. on exitFrame
  2.   global nIniVideo, nFinVideo, nCursor2, nMask2, nCursor3, nMask3
  3.   if (the mouseV >= 345) and (the mouseH >= -3) and (the mouseV <= 480) and (the mouseH <= 137) then
  4.     set the movieRate of sprite 2 to 0
  5.   else
  6.     set the movieRate of sprite 2 to 1
  7.   end if
  8.   if (the mouseV >= 132) and (the mouseH >= 352) and (the mouseV <= 168) and (the mouseH <= 411) then
  9.     cursor([nCursor2, nMask2])
  10.   else
  11.     if (the mouseV >= 176) and (the mouseH >= 352) and (the mouseV <= 212) and (the mouseH <= 411) then
  12.       cursor([nCursor3, nMask3])
  13.     else
  14.       cursor(-1)
  15.     end if
  16.   end if
  17.   if the movieTime of sprite 2 > (nFinVideo - 15) then
  18.     arriba()
  19.   else
  20.     rollboton()
  21.   end if
  22.   go(the frame)
  23. end
  24.  
  25. on mouseUp
  26.   if (the mouseV >= 132) and (the mouseH >= 352) and (the mouseV <= 168) and (the mouseH <= 411) then
  27.     arriba()
  28.   else
  29.     if (the mouseV >= 176) and (the mouseH >= 352) and (the mouseV <= 212) and (the mouseH <= 411) then
  30.       abajo()
  31.     end if
  32.   end if
  33. end
  34.  
  35. on arriba
  36.   global nStrip, nIniVideo, nFinVideo
  37.   case nStrip of
  38.     1:
  39.       set nIniVideo to 300
  40.       set nFinVideo to 9360
  41.     2:
  42.       set nIniVideo to 19050
  43.       set nFinVideo to 28100
  44.     3:
  45.       set nIniVideo to 37755
  46.       set nFinVideo to 46825
  47.     4:
  48.       set nIniVideo to 56490
  49.       set nFinVideo to 65555
  50.     5:
  51.       set nIniVideo to 75210
  52.       set nFinVideo to 84280
  53.     6:
  54.       set nIniVideo to 93945
  55.       set nFinVideo to 103005
  56.     7:
  57.       set nIniVideo to 112675
  58.       set nFinVideo to 121810
  59.   end case
  60.   cursor(-1)
  61.   set nIniVideo to nIniVideo + 39300
  62.   set nFinVideo to nFinVideo + 39300
  63.   go("stripP")
  64. end
  65.  
  66. on abajo
  67.   global nStrip, nIniVideo, nFinVideo
  68.   case nStrip of
  69.     1:
  70.       set nIniVideo to 9660
  71.       set nFinVideo to 18755
  72.     2:
  73.       set nIniVideo to 28400
  74.       set nFinVideo to 37450
  75.     3:
  76.       set nIniVideo to 47125
  77.       set nFinVideo to 56200
  78.     4:
  79.       set nIniVideo to 65855
  80.       set nFinVideo to 74910
  81.     5:
  82.       set nIniVideo to 84580
  83.       set nFinVideo to 93650
  84.     6:
  85.       set nIniVideo to 103305
  86.       set nFinVideo to 112375
  87.     7:
  88.       set nIniVideo to 122110
  89.       set nFinVideo to 131430
  90.   end case
  91.   cursor(-1)
  92.   set nIniVideo to nIniVideo + 39300
  93.   set nFinVideo to nFinVideo + 39300
  94.   go("stripP")
  95. end
  96.